; -*- mode: lisp; -*-

(RSG 0 1)
(
    (templ $radius $material)

    (nd Sphere
        (setRadius $radius)
        (setMaterial $material)
    )
)
